home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #216 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).zip / Franz PD Disk #216 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).adf / KKK / KKK.MENUE (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-02-02  |  3KB  |  76 lines
  1. REM KKK.Menue - 14.07.92
  2. REM von Lothar Berndt, 4240 Emmerich 1
  3. REM Lädt und startet die beiden Versionen vom Kompakt-Kassetten-Kuvert.
  4. DEFINT a-z
  5. SCREEN 1,640,256,2,2
  6. WINDOW 2,"KKK.Menue",,18,1
  7. OPEN"Farbdaten" FOR INPUT AS 1
  8. INPUT#1,Farbzahl:DIM Farbwert!(Farbzahl,3)
  9. FOR i=0 TO Farbzahl:FOR J=1 TO 3
  10. INPUT#1,Farbwert!(i,J):NEXT J
  11. PALETTE i,Farbwert!(i,1),Farbwert!(i,2),Farbwert!(i,3):NEXT i:CLOSE 1
  12. LINE (100,50)-(530,70),1,b:LINE (102,52)-(528,68),2,bf
  13. LINE (100,80)-(530,100),1,b:LINE (102,82)-(528,98),2,bf
  14. LINE (100,110)-(530,130),1,b:LINE (102,112)-(528,128),2,bf
  15. LINE (100,140)-(530,160),1,b:LINE (102,142)-(528,158),2,bf
  16. ms:
  17.   tst=MOUSE(0):WHILE MOUSE(0)=0:GOSUB p1:GOSUB t1:SLEEP:WEND
  18.   x=MOUSE(1):y=MOUSE(2)
  19.   IF x>101 AND x<529 AND y>51 AND y<69 THEN
  20.     xp=103:yp=53:PAINT(xp,yp),1,0:px=xp:py=yp
  21.     IF MOUSE(0)<0 THEN GOTO ms
  22.     RUN "cas8"
  23.   END IF
  24.   IF x>101 AND x<529 AND y>81 AND y<99 THEN
  25.     xp=103:yp=83:PAINT(xp,yp),1,0:px=xp:py=yp
  26.     IF MOUSE(0)<0 THEN GOTO ms
  27.     RUN "cas9"
  28.   END IF
  29.   IF x>101 AND x<529 AND y>111 AND y<129 THEN
  30.     xp=103:yp=113:PAINT(xp,yp),1,0:px=xp:py=yp
  31.     IF MOUSE(0)<0 THEN GOTO ms
  32.     GOSUB t2:GOTO ms
  33.   END IF
  34.   IF x>101 AND x<529 AND y>141 AND y<159 THEN
  35.     xp=103:yp=143:PAINT(xp,yp),1,0:px=xp:py=yp
  36.     IF MOUSE(0)<0 THEN GOTO ms
  37.     CLS:WINDOW CLOSE 2:SCREEN CLOSE 1:SYSTEM
  38.   END IF
  39. GOTO ms
  40. t1:
  41.   COLOR 1,2
  42.   xyPTAB 145,64:PRINT"LADE UND STARTE Kompakt-Kassetten-Kuvert 8"
  43.   xyPTAB 145,94:PRINT "LADE UND STARTE Kompakt-Kassetten-Kuvert 9"
  44.   xyPTAB 210,124:PRINT "INFO ÜBER VERSION 8 und 9"
  45.   xyPTAB 190,154:PRINT "ENDE - ZURÜCK ZU DER WORKBENCH"
  46.   COLOR 1,0
  47. RETURN
  48. t2:
  49.   WINDOW 3,"INFO ÜBER KKK V8 und V9",(60,24)-(570,173),8,1
  50.   COLOR 0,1:CLS:PRINT 
  51.   PRINT " Die beiden Versionen 8 und 9  unterscheiden  sich in der Bild-"
  52.   PRINT " schirmaufteilung  und wie die Kassettenhüllen gedruckt werden."
  53.   PRINT
  54.   PRINT " Angenommen, die  Kassetten  stehen senkrecht, mit der schmalen"
  55.   PRINT " Seite der Klappe nach links, im Regal."
  56.   PRINT
  57.   PRINT " Version 8 druckt die Hüllen von oben nach unten, der  Text ist"
  58.   PRINT " von links nach rechts lesbar."
  59.   PRINT " Version 9 druckt die Hüllen von unten nach oben, der  Text ist"
  60.   PRINT " von rechts nach links lesbar."
  61.   PRINT
  62.   PRINT " Das Datenformat der beiden Versionen ist untereinander kompa-"
  63.   PRINT " tibel. Das heißt, Sie können Daten mit der Version 8 eingeben"
  64.   PRINT " und mit der Version 9 ausdrucken,oder Daten mit der Version 9"
  65.   PRINT " eingeben und mit der Version 8 ausdrucken."
  66.   WHILE (WINDOW(7)<>0 AND WINDOW(1)=3):WEND
  67.   WINDOW CLOSE 3:WINDOW 2:WINDOW OUTPUT 2:tst=MOUSE(0):COLOR 1,0
  68. RETURN
  69. p1:
  70.   PAINT (px,py),2,0:px=0:py=0
  71. RETURN
  72. SUB xyPTAB (x,y) STATIC
  73.   POKEW WINDOW(8)+36,x
  74.   POKEW WINDOW(8)+38,y
  75. END SUB
  76.